Шаг 112 - Изучаем XBase – Получаем следующею.

Одна запись хорошо, но в файле можем быть много записей. Получается нам нужно двигаться по записям. Вт и будем двигаться. Для передвижения вперед есть функция специальная.

Следующая
Перейти на следующую запись.

Синтаксис:
Следующая()
Англоязычный синоним:
Next

Возвращаемое значение:
Число: 1 — получена следующая запись; 0 — следующая запись не найдена.

Описание:
Метод Следующая предназначен для позиционирования объекта на следующую запись. В зависимости от того, установлен ли текущий индекс, позиционирование происходит либо в порядке возрастания физического номера записи, либо в порядке возрастания значения выражения текущего индекса (если индекс создавался с установленным флагом "Убывание", то в порядке убывания).

Попробуем.

Процедура Сформировать() 
      
 	Т = СоздатьОбъект("Таблица");   
	ДБФ =  СоздатьОбъект("XBase");
      	ДБФ.ОткрытьФайл("c:\Test.dbf");
	ДБФ.Первая(); 
	  
	     	Т.ВывестиСекцию("Секция_1");

	ДБФ.Следующая();
	ДБФ.ЗакрытьФайл();


    	Т.ТолькоПросмотр(1);
	Т.Показать(); 
КонецПроцедуры

Нечего не произойдет.

112_1.gif (4494 b)

И правильно. Нам нужен цикл. Типа следующая пока не конец файла. Значит конец файла нужно определить.

Hosted by uCoz